MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


**F ILE**1D**SMGMACROS 


SSSSSSSS| MM MM GGGGGGGG MM ‘ala AAAAAA CCCCCCCC § RRRRRRRR 000000 SSSSSSSS 
SSSSSSSS MM awl GGGGGGGG MM MM BABAR CCCCCCCC §=RRRRRRRR 000090 SSSSSSSS 
$$ MMMM 6MMMM 6GG MMM ‘lal AA CC RR RR 00 oo SS 
$$ MMMM MMMM 6GG MMMM Aa AA CC RR RR 00 oo SS 
SS MM UMM UMM «OGG mM 66MM UMM OAA AA CC RR RR 00 0o0 SS 
S$ MM 6M UMM OGG MA UMM UMM AA AA CC RR RR 00 00 SS 
SSSSSS MM MM GG MM MM AA AA CC RRRRRRRR 00 00 SSSSSS 
SSSSSS al MM GG MM MM AA AA CC RRRRRRRR 00 00 SSSSSS 
SS MM MM 6GG 6GGGGGG MM MM AAAAAAAAAA § CC RR RR 00 00 SS 
SS MM MM GG GGGGGG MM MM AAAAAAAAAA § CC RR RR 00 00 SS 
SS MM MM GG GG MM MM AA AA CC RR RR 00 00 SS cece 
SS MM MM GG GG MM MM AA AA CC RR RR 00 00 Ss eeee 
SSSSSSSS sal MM GGGGGG MM MM AA aa CCCCCCCC «RR RR 000000 SSSSSSSS cece 
SSSSSSSS MM MM GGGGGG aM MM AA AR CCCCCCCC «ORR RR 000000 SSSSSSSS cose 
RRRRRRRR EEEEEEEEEE QQQ00Q 
RRRRRRRR EEEEEEEEEE QQQ000 
RR RR EE QQ QQ 
RR RR EE GQ QQ 
RR RR EE QQ QQ 
RR RR EE Qo QQ 
RRRRRRRR EEEEEEEE QG QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR R EE Qa QQ QQ 
EE QQ QQ QQ 
EE QQ QQ 
EE QQ QQ 
EEEEEEEEEE QQQg QQ 
EEEEEEEEEE Qa0Qg QQ 


F 
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' Recr ro Definitions for RTL SMGS fog ibity 
File: SMGMACROS.REQ Edit: STAN101 


1 
! 
i 
PPPS ESSSSS SSSI CCT ETT TTT rere ricer irre cect c icici citi c ccc critic ici tir iiiiiiiiiy 
‘e 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF TH RE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


* 
ae 
te 
a 
tr 
+ 
& 
® 
' te 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ‘ 
4 & 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
® 
® 
® 
t 
* 
ft 
® 


:* CORPORATION, 


tt DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SP eee eee AAR AAA A AEE A AE AEEAAEAEEEAEE AEE EEEAEAEEAEKE AEE eee eee ee eet 
' 
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‘ee 
! FACILITY: Screen Management 


i ABSTRACT: 
i This file contains macros used by screen management routines. 
i MODIFIED BY: 
i 4-001 - - Ori inal 15-Mar- 
1 Adds ival DATE A ARGCOUNT PLL 24-Mar-1983 
1 ~ sencsy DATE- 7-Apr-198 
1 - aga ots afte: ris 
1-005 - age SMGSF Aad PRIN LENG He PLL 21-Apr-1983 
1 - ae gnc ce! CB sd that it can work in any module. 
1 7 - Fix $ IND_PRINT_LENGTH. PLL 12-May-1983 
1-008 - te gSSMoBCREC a K_FOR_WRAP since it's vot used. 
1-009 = Ch to make displa id's reall be DCB addresses. 
Deleted $Smc TNEXT DID ~ no Longer needed. 
h SSneaeeT T_ocB. 
RKR . 


macros. (Fo in LIB.REQ.) PLL 21-Jun-1983 
Sune dese 


i ABT = Ode ce REND CODE. STAN 
. = _ 
i 12012 = Add Ene 


SGET"TERM_ DATAN STAN 15 Jon21986. 


H 
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= 


SSMGSVAL IDATE_ARGCOUN 


Macro used to check that a SMGS procedure was called with the correct 
number of or gunents- If the test fails, the procedure returns with the 
failure status _WRONUMARG. 


Format: 
SSMGSVALIDATE_ARGCOUNT (lo, hi); 


Le = Lowest number of arguments which are vali (05233) 
hi = Highest number of arguments which are valid (0-255) 


MAC 
"Bsmcsvat JDATE_anccount (lo, hi) = 
BUIL IN 
ACTUAL COUNT; 
EXTERNAL LITERAL 
SMG$_WRONUMAR 


ZIF lo NEG hi 
ZTHEN 
ZIF lo NEQ 0 
TTHEN 
LOCAL 


DIFF: BYTE; 
DIFF = ACTUALCOUNT () = Lo; 
IF .DIFF GTRU (hi = Lod 


se. se RETURN SMG$_WRONUMARG ; 
iH ACTUALCOUNT () GTRU hi 


te RETURN SMG$_WRONUMARG; 


ZELSE 
if ACTUALCOUNT () NEQU lo 


RETURN SMG$_WRONUMARG; 


Fl 
END 2; 
'¢ 
SSMGSVAL IDATE_ROW_COL 


i This macro checks to make sure the specified row and column are 
! within the virtual display. SMGS_INVROW or SMGS_INVCOL is returned 
' if they are not. 


MACRO SSMGSVALIDATE_ROW_COL (ROW, COL) = 
BEGIN 
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| 

| 

i et ‘ee Snescinveo; | 
eh 008 CDCB_w_NO_ROWS) | 

MEN AETURN (SMGS_INVROW) ; | 

| 


If COL BA 
as R OCB COCB_W_NO_COLS) 


RETURN (SMGS$_INVCOL); 
END; %; 


'¢ 
! SSMGSGET_DCB 


' 

‘ 

' 

: Macro SSMGSGET_DCB validates the suppled espond! display id (DID) and 
n 

' 

' 


' computes the starti ress of . orrespond Display Control 

' Block (DCB). If o18 reeress f5. OINVDIS. I s returked to caller 
;_of routine that invokes this i 

MACRO 


BEGIN DCB ( DID, DCB_ADDR) = 


BIND LOC_DID = DID : REF BLOCK C, BYTE); 
EXTERNAL “LITERAL SMGS_ INVDIS_ID; 


if jLOc.10 COCB_L_DID] NEQ .DID 


RETURN (SMG$_INVDIS_ID); ! Not ty i to one of our 
i control blocks 


ea COCB_B_STRUCT_TYPE] NEQ DCB_K_STRUCT_TYPE 
| 


RETURN (SMG$_INVDIS_ID); ! Not pointing to a DCB 
pcB_ = DID; ! Assume ok 
END; 
'¢ 
SSMGSGET_PBCB 


' 

' 

i 

Macro SSMGSGET PBCB validates the suppled ey id (PID) and 
n 

i 

i 


computes the stort ress of the ¢ a at Pasteboard Control 
Block (PBCB). aS Be level fae Sng ae AS_ID is returned to 
i. caller o LE that invokes » te macro 


MAC 
*SSNGSGET _PBCB ( PID, PBCB_ADDR) = 
PES LNAL LITERAL SMG$_INVPAS_ID; 
Z1F NOT ZDECLARED ( PBD_L_COUNT ) 
TTHEN 


a peo APete VAIL : Sifvec for; 
I PL I tu 


RETURN (SMGS_INVPAS_1D); 


PBCB_ADDR = .PBD_A_PBCB C .PIDI; 
END; “3; 


* 


SSMGSGET_NEXT_PID 


maces eg T_NEXT_PID obtionett to allocate the ay 2 VFOORANP Braele peoteteore 
' id (PID). fo more be allocated, returns SMG 
the yy Hy the rout — that invoked this macro. 
If @ new can allocated, it is returned as PID and the 
| correspondin bit in “ped Vv. PB-AVAIL is set to one to indicate that 
is number is in use. 


AAC 
CRO SMGSGET NEXT _PID (PID)= 
BEGIN 
BUILTIN 
EXTERNAL LITERAL SMGS_TOOMANPAS; 
i ;P8D_L_cOUNT + 1 GTR PBD_K_MAX_PB 
RETURN (SMG$_TOOMANPAS); 


'¢ 


i 1 we've ing correctly, the FFC should find a 
; zero within PBD_ K ma “Oe its. 
FFC ( ZERO, ! Starting bit position 
PBD_K_MAX_PB_BY_REF, i Number of orts to search 
4 1 v>PB_AVAIL, Bas 


103;~ pase of “Of ise zero bit found 


pep -v re. AVAIL C .PID] = 1; ! Mark as allocated 


rT 
i $SMGSGET_TERM_DATA 


: Gets terminal data from t terminal table into the PBCB. 
; Assumes you have a symbol named ‘pece”. 


MACRO 
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eee 


SMGMACROS .REQ; 1 


16-SEP-1984 16:57:25.54 Page 


SSMGSGET_TERM_DATA(CAPABILITY,ARG1,ARG2) = 


HA Nee ARGS : VECTOR(3), 


EXTERNAL ROUTINE 


SMGSGET_TERM_DATA; 


"gE Rida altak 


$(0) NGTH-1; 
tren NOT Buy (ARG 
arts pth se cee 
LIF NOT pay ne 
ots ZTHEN faput LARGS(2J=#RG2 


STATUS=SMGSGET_TERM_DATA(PBCBCPBCB_L_TERMTABLE) 
ZREF INANE (SHGSK CAPABILITY 
PBCB(PBCB_L_LONGES sf SEQUENCE) 
PaCB PBCB7L~CAP_LENGTH 
recacree cB, R. CAP_BuF FERS, 


ge «STATUS THEN RETURN “STATUS 


orf | 


—_——__—4 
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's 
; Macros for manipulation queue entries 


‘+ 
SSMGSINSET_AT_HEAD 
Macro py e AT_HEAD wagers the specified queue entry oa the 


occup the entr inted to by the 
i Yor ara ‘seahter part of the nh AWK, _ of 


WD eSINSERT AT NEMO ( GENTRY, Q@_HEAD) = 
BEGIN 


| 
BUILTIN INSQUE 
INSGQUE ( Q_ENTRY, Q_HEAD); 
END; 2; 
t+ 
SSMGSINSET_AT_TAIL 


i Macro Sonesenseg’ AT_TAIL iy A the specified queve entry fe the 
i queue a @ gost iofh now occupied the entry pointed to by the 
i Backward pointer part of the queus header. 


CRS SNGSINSERT LAT_TAIL ( Q_ENTRY, Q_HEAD) = 


BUILTIN INSQUE; 
INSQUE ( Q_ENTRY, .(Q_HEAD +4)); 


; i” SSMGSREMOVE ~f ROM_QUEUE 


Macro SSMGSREMOVE_FROM_QUEUVE removes the specified entry from the queue. 
MACRO 
SSMGSREMOVE_FROM_QUEUE ( Q_ENTRY ) = 
BUILTIN REMQUE; 
OCAL 


FOO; ! Item to be thrown away 
REMQUE ( @_ENTRY, FOO); 
END, 2; 


'¢ 

: SSMGSEL inear 

i Macro S$SMGSLinear Linearizes a two dimensional syecr log formed by a 1-based 
! row r and a i-based column number, into a single O-based 

; subscript. 

MACRO 


SSMGSLINEAR (ROW COLUMN NUMBER) = 
(ROW_NUMBER-1)*. 6B : be C6_W_NO_COLS] + COLUMN_NUMBER -1 3%; 


'¢ 


i $SMG$Set_rend_code 


i This macro sets the rendition code by checking for optional rendition set 
! and rendition_complement arguments, and using the default from the DCE. 


RACRO  SSMGSSET_REND_CODE (SET_ARG_NO, COMP_ARG_NO) = 
BUILTIN 

NULLPARAMETER 

REND CODE = .DCB [OCB 

IF _NOT NULLPARAMETER 


B_DEF_VIDEO_ATTRI; 
TSET_ARG_NO) ~ 
REND CODE = .REND_CODE OR ..RENDITION_SET; 
1F Not NOLLPARAMETER TCOMP_ARG.NO) 
cup: g; REND=CODE = .REND_CODE XOR ..RENDITION, COMPLEMENT; 


rT 
: SSMGSBLank_fill_DdCB 


i This macro puts blanks into the text buffer, the default attribute byte 
! into the attribute buffer, and the default character set byte into the 
; character set buffer. 


MACRO SSMGSBLANK_FILL_DCB (NUM, SRC) = 
BEGIN 


AL 
TEXT_BUF : REF VECTOR (,BYTE), 
ATTR-BUF : REF VECTOR (.BYTE). 
CHARBUF : REF VECTOR C.BYTE): 

TEXT_BUF = .DCB DCB_A_TEXT BUF J; 

ATTR-BUF = .0CB [DCB-A-ATTR-BUF); 

CHAR“BUF = .DCB CDCB"A~CHAR~SET_BUF); 


CHSFILL (2C" *, 
NUM 
TEXf_BUF CSRCJ); 
CHSF ILL (.0¢B (DCB_B_DEF _VIDEO_ATTRI, 
ATTR_BUF CSRCJ); 
If .CHAR_BUF NEQ 0 
CHSFILL (.0CB8 CDCB_B_DEF_CHAR_SET), 


NUM 
CHAR_BUF CSRC}); 
END; 2; ! end of macro SSMGSBLANK_FILL_0CB 


LJ 
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MACI 


LIT 
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H SSMGSF ind_nonbLlank_Llen 

i This acere finds the length of a string minus trailing blenks. Since 
! the text is alreedy in a display buffer, there should be no funny 

! characters such as tabs Start at the end of the string and search 
i backwards to find the first chorester which is not a space. 


RACED PIR See IND HONEA LEN (STRING_ADDR, STRING_LEN, NONBLANK_LEN) = 


NONBLANK_LEN = STRING_LEN; ! initialize the Length 
WHILE «NONBLANK_LEN NEQU 0 


BEGIN 
IF (CHSRCHAR (CHSPLUS (STRING_ADDR, .NONBLANK_LEN = 1)) 
EQL 2C* *) 


THEN 
- NONBLANK_LEN = .NONBLANK_LEN = 1 
EXITLOOP; 


'¢ 


! SSMGSShuf fle 


! The frllowing macro is used to move text within a display. 
MACRO SSMGSSHUFFLE (NUM, SRC, DST) = 


CHSMOVE ( 
Text _BuF src} 
TEXT~BuUF CDSTIS 


CHSMOVE ( 
ATTR _BUF src} 
ATTR~BUF COSTIS 


J _ CHAR BUF NEQ 0 ! exists only if char set requested 


CHSMOVE ( 
CHAR _BUF se) 

CHAR~BUF CDSTIS; 

END, 2%; ' end of macro $SMGSSHUFFLE 


'¢ 

i this is used by SMGSINSERT_CHARS only 

! This macro is used to determine how many positions a string will 

i occupy when it is printed. It takes into account funny charactere 
i. such as tabs and backspaces. 


MACRO SSMGSFIND_PRINT_LENGTH (TEXT_LEN, TEXT_ADDR, PRINT_LEN) = 


eef 


SMGMACROS .REQ; 1 16-SEP-1984 16:57:28.58 Page 10 


oe FATERRE 


FATERRLIB; 
exten, 
CHAR_TABLE : VECTOR (,BYTE); 
BUILTIN 
SCANC; 
LOCAL 
ALLONES : BYTE IWITIAL (-1), 
eeded by r ef 
BYTES REMAINING, NO. of bytes in input string yet to be 
e 
IN_POINTER; | Eurrent pointer into input string 
PRINT_LEN = Q; ! initialize 
ayes “REMAINING - TEXT LEN; 
poreren = TEXT_A 
TERT. = 0; : modi fy this to be the actual number 


i of chars processed 
UNILE -BYTES _REMAINING NEQ 0 


ores ! Overall loop 
NEW_BYTES_REMAINING, 
ADDR_DIFF; 


No. of bytes remaining as returned 
by SCAN 


Addr of char in input stream whose 
index into scanc table yields 
non-zero code. 


i "bee if any of the remaining input characters require special 
i. treatment. 


SCANC ( BYTES _REMAINING, No. of bytes remaining 
IN_POINTE 


' 
. R, ' Current pointer to source 
CHAR_TABLE, ! Address of SCANC table 
ALLONES; ' Mask for ANDin 
NEW_BYTES_REMAINING, ! New remaining no. of bytes 
! ene Luding the byte which 
' caused the snetrurt leq to 
! halt. is zero onty if all 
: axes q d not satify search. 
ADDR_DIFF); ! Addr of char in input stream ; 
: woore index into scanc table : 
! yields non-zero code. ; 
IN_POINTER = .IN POINTER + (.BYTES_REMAINING - une BYTES reine : 
PRINT_LEN = .PRIRT_LEN + (, BYTES R RERAINING - y BYTES aRERAI NG); : 
tain orintiag te ngeh ~ eet : 
TEXT_LEN = .TEXT_LEN + (.BYTES “REMAINING - .NEW_BYTES_REMAINING); : 
pees s back no. of chars processed ‘ 
BYTES_REMAINING = .NEW_BYTES RENAL ING; 
If .NEW_BYTES_REMAINING EQL 0 : 
THEN : 


SMGMACROS.REQ;1 16-SEP-1984 16:57:25.58 Page 11 
EXITLOOP; ! Break out of loop -=- we're done 
"Dispaten on the non-zero code located to see what special 


} act on is needed. 
CASE -CHAR_TABLE C.(.ADDR_DIFF)<0,8>] FROM 1 TO 10 OF 


Ml, 2,3,10): 

Hex Character Codes ASCII Character 

i 00 to 06 NUL to ACK 

! QE to 1A SO to SUB 

: 1C to 1F FS to US 

' 07 BEL 

4 8 BS 

F DEL 

| Non-printing characters 

C4]:" 

Hex Character Codes ASCII Character 

09 HT 

TABS require extra space. 

i TAB 17°°8E f ar apgumeg to_be set_in the following columns: 
9, . 49, 57, 65, 73 ( width=80) 

i 9, 17, 25, ss. 41, 49, 57, 65, 73, 81, 89, 97, 105, 113, 
121, 129 € width=132) 


BEGIN 
PRINT_LEN = .PRINT_LEN + 

iC. DCB COCB W_CURSOR_ coLJ- 1)/8+1) #841; 
rext _LEN = .TEXT_LEN + 1; |! imcTude as-a ‘printable’ char 


. 4.7.8.9): 

Hex Character Codes ASCII Character 
i OA LF 

: 0B VT 

; 0c FF 

; 0D CR 

1B ESC 

i These characters do not make sense when inserting characters. 
Throw away all text after this 

BEGIN 

EXITLOOP; 
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END; 
CINRANGE , OUTRANGE): 
i Should never get here -- there are no other codes in 
a CHAR_TABLE. If we do, we've got a problem. 
BEGIN 
RETURN SMG$_FATERRLIB; 
END; 
TES; 
'¢ 
i Re-adjust pointer and count of bytes left to account for 
it the special character(s) just processed. 
IN POINTER = .IN_POINTER + 1; 
BYTES -REMAINING = ,BYTES _REMAINING <1; 
END; ! Overall loop 


END; %; ! End of macro SSMGSFIND_PRINT_LENGTH 


‘+ 
Macros used for input routines. 


MACRO 
SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH) = 


EXTERNAL LITERAL 
INVKTB_ ID; 


KTH = .KEY TABLE_I6 (0); 
a EOC O” 
RETURN SMG$_INVKTB_ID; ! Invalid key-table-id 
If gk CKTH_L_CHECK] REQA .KTH 
germs SMG$_INVKTB_ID; ! Invalid key-table-id 


RO 
SSMGSVALIDATE_KCB (KEYBOARD_ID, KCB) = 
BEGIN 


EXTERNAL LITERAL 

SMG$_INVKBD_ID; 
KCB = SKEYBOARD D-1D (0); 
Its KCB EQL 0 


RETURN SMG$_INVKBD_1 
IF xB txcan L_CHECK REOA .KCB 


perme SMG$_INVKBD_ID; ! Invalid keyboard-id 


! Invalid keyboard-id 


AH-BT13A-SE P 
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